open(BUFF,"ls /data1/bsi/BORA_processing/devel/data_HGU133/CELFILES |");
$name = 0;
while($line = <BUFF> )
{
	
	chomp($line);
	system("cp /data1/bsi/BORA_processing/devel/data_HGU133/CELFILES/$line /data1/bsi/BORA_processing/devel/data_HGU133/temp/");
	for($i=1;$i<99;$i++)
	{
		$line = <BUFF>;
		chomp($line);
		system("cp /data1/bsi/BORA_processing/devel/data_HGU133/CELFILES/$line /data1/bsi/BORA_processing/devel/data_HGU133/temp/");
	}
	$name ++;
	
	system("Rscript frmascript.R");
	$sys = "mv ./temp/result.txt ./results/$name"."_result.txt"; 
	system($sys);
	system("rm ./temp/*");
}
